﻿Imports System.Data.SqlClient

Public Class FrmDetallePedido

    Dim variableconex As New SqlConnection(My.Settings.CITRA_ERPConnectionString)

    Private Sub FrmDetallePedido_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Public Sub MostrarDetallePedido(pedido As Integer)

        Dim DS As New DataSet
        Dim DA As New SqlDataAdapter("select pro_nom.Nombre as [Nombre de producto], pro_prov.Razon_Social as [Proveedor], ped_pro.cantidad as Cantidad, ped_pro.ultimo_precio as [Ultimo precio], ped_pro.unidades_pendientes as [Unidades Pendientes] from Pedidos_Productos ped_pro, Productos_Nombres pro_nom, Proveedores pro_prov where ped_pro.IDPRODUCTO=pro_nom.IDPRODUCTO and ped_pro.IDPROVEEDOR=pro_prov.IDPROVEEDOR and pro_nom.TIPO_IDENTIFICACION='PROVEEDOR' AND  ped_pro.IDPEDIDO='" & pedido.ToString & "'", variableconex)

        DA.Fill(DS)

        dgvDetallePedido.DataSource = DS.Tables(0)

        dgvDetallePedido.Columns(0).Width = 150
        dgvDetallePedido.Columns(1).Width = 200
        dgvDetallePedido.Columns(2).Width = 100
        dgvDetallePedido.Columns(3).Width = 100
        dgvDetallePedido.Columns(4).Width = 150

    End Sub

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
        Me.Close()
    End Sub
End Class